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ABSTRACT 


A  home  computer  can  compute  if  it  has  BASIC.  A  showcase  of  data  and  programs 
has  been  prepared  for  True  BASIC  on  a  Macintosh  computer.  Cartographic  data  have 
been  compressed  to  one  fourth  of  their  volume  in  a  previous  format,  and  typographic 
data  have  been  compressed  to  one  half  of  their  previous  volume.  The  use  of  the  showcase 
is  illustrated  by  samples  of  input  to  computer  and  output  from  a  LaserJet  printer. 
Listings  and  disks  are  available  for  acquisition  by  other  users. 
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INTRODUCTION 


The  quality  of  printing  in  1970  was  improved  by  the  preparation  of  a  repertory  of 
data  and  programs  which  gave  control  over  the  printed  output  from  a  computer.  The 
repertory  is  the  basis  for  the  preparation  of  maps  of  the  United  States  and  the  World. 
The  repertory  provides  for  the  preparation  of  printed  material  in  electronics,  chemistry, 
and  mathematics.  The  repertory  has  been  used  in  the  preparation  of  eleven  reports. 

Evolution  has  led  to  a  system  which  takes  a  stream  of  input,  processes  the  input  to 
prepare  output,  and  gives  a  stream  of  output.  In  1979  the  system  was  transferred  to 
the  Computer  Center  at  the  Naval  Postgraduate  School.  It  has  been  described  in  previous 
reports.  The  current  status  of  the  system  is  the  subject  of  this  report. 

In  the  meantime  the  frenzy  of  proliferation  of  personal  computers  has  led  to  the 
transfer  of  the  system  to  an  HP~85  Hewlett-Packard  computer  and  to  a  Classic  II 
Macintosh  computer.  Output  from  the  Hewlett-Packard  computer  goes  to  an  Inkjet 
printer,  while  output  from  the  Macintosh  computer  goes  to  an  HP  Laserjet  IIIp  printer. 

Data  are  stored  in  data  files  while  programs  are  stored  in  program  files.  Map  data 
are  sequential  but  character  data  require  random  access.  The  storage  of  character  data 
on  tape  is  out  of  the  question  for  random  access.  On  the  main  frame  the  character 
data  are  copied  from  tape  storage  into  transistor  storage  where  access  is  at  electronic 
speed.  The  transistor  memory  of  the  Hewlett-Packard  computer  is  too  small  to  hold 
all  of  the  character  data.  On  the  other  hand,  random  access  is  at  disk  speed  on  a  disk, 
and  the  character  data  are  kept  on  a  disk.  The  position  of  each  character  is  listed  in 
an  index  file  while  the  data  for  the  character  are  stored  in  the  data  file. 

On  the  main  frame  the  language  is  FORTRAN,  while  on  home  computers  the  language 
is  BASIC.  There  is  Hewlett-Packard  BASIC  on  the  HP85  computer,  while  there  is  Microsoft 
BASIC,  Quick  BASIC,  and  True  BASIC  on  the  Macintosh  computer. 

There  are  programs  in  all  four  languages  which  have  the  same  central  structure  but 
differ  in  minor  detail  at  the  ends.  Programs  with  the  same  function  in  FORTRAN  and 
BASIC  are  different  in  detail.  There  are  only  capital  letters  and  a  few  signs  in  FORTRAN. 
The  computer  must  be  told  explicitly  what  case  to  use.  The  characters  have  ASCII 
numbers  in  BASIC.  The  case  is  specified  by  the  input. 

For  a  computer  to  be  useful,  it  must  make  it  easy  for  the  user  to  enter  data  and 
programs.  On  the  main  frame  the  user  must  wait  his  turn  in  the  time  share  queue.  On 
a  personal  computer  the  user  can  watch  what  happens  on  a  screen. 

Unlike  other  versions  of  BASIC,  the  Hewlett-Packard  BASIC  has  an  instruction  REN  I,K 
which  renumbers  the  lines  of  a  program  with  a  new  initial  value  I  and  a  new  interval 
K  between  line  numbers.  This  makes  it  easy  to  insert  new  lines. 

Unlike  other  keyboards  the  Hewlett-Packard  keyboard  has  a  key  labeled  PLIST  which 
lists  the  program  on  the  Inkjet  printer. 

The  Macintosh  computer  has  some  neat  features.  Files  are  collected  in  folders.  Each 
file  has  an  icon,  each  folder  has  an  icon,  and  the  disk  has  an  icon.  On  the  screen  there 
is  an  arrow  whose  position  is  moved  by  a  mouse.  If  the  arrow  is  centered  over  an  icon 
and  the  mouse  is  clicked  the  icon  is  highlighted  and  the  file  is  activated.  An  icon  in 
one  folder  can  be  dragged  to  the  disk  icon,  and  then  it  can  be  dragged  to  another 
folder.  The  file  is  copied  in  the  process.  However,  the  icon  disappears  from  the  first 
folder  if  it  is  dragged  directly  to  the  second  folder.  If  the  icon  of  a  folder  is  double 
clicked  then  the  icons  of  files  in  the  folder  are  displayed  in  a  window. 

A  demonstration  of  the  programs  in  a  showcase  is  an  invitation  to  any  users  to  make 
use  of  the  showcase  in  their  own  applications.  A  program  can  be  transported  on  a  disk 
between  computers  with  the  same  model  and  the  same  system,  but  otherwise  the 
program  must  be  keyed  in  by  hand.  The  program  is  transported  as  a  listing  which  must 
be  edited  by  the  user. 
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The  preparation  of  listings  is  by  a  set  of  LIST  programs  in  the  Quick  BASIC  system. 
Microsoft  BASIC  does  not  tolerate  leading  zeros  unless  they  are  enclosed  in  quotation 
marks,  while  True  BASIC  tolerates  leading  zeros  but  not  strings  of  numerals.  Microsoft 
BASIC  inserts  OO  after  every  ampersand  unless  the  ampersand  is  enclosed  between 
quotation  marks,  while  True  BASIC  uses  the  ampersand  to  link  strings.  The  preparation 
of  listings  is  performed  with  quotation  marks  around  any  statement  which  is  in  jeopardy. 
After  listing  the  quotation  marks  are  covered  with  liquid  paper,  or  the  intact  statement 
is  cut  out  to  make  a  patch. 

For  a  computer  to  be  of  scientific  value  it  must  be  able  to  compute.  If  it  has  only 
a  calculator  it  is  able  only  to  calculate.  Calculation  is  where  the  program  is  stored  in 
the  mind  of  the  user.  Computation  is  where  the  program  is  stored  in  the  memory  of 
the  computer.  Computation  is  possible  with  BASIC. 

At  the  Naval  Postgraduate  School  there  are  Macintosh  Quadras  and  at  Kinkos  there 
are  Power  Macintoshes.  Unfortunately  these  computers  refuse  to  accept  Microsoft  BASIC. 
The  probability  that  they  can  accept  True  BASIC  has  been  the  source  of  motivation  for 
the  present  investigation. 

The  absence  of  interchangeability  between  machines  and  programs  is  pathetic. 
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INPUT 


In  FORTRAN  a  file  is  edited  with  the  aid  of  the  utility  XEDIT.  When  editing  is  complete 
the  file  is  returned  to  disk  by  the  instruction  FILE. 

In  BASIC  a  program  must  be  keyed  in  by  hand.  The  program  is  displayed  in  a  window 
on  the  screen.  If  a  symbol  is  inserted  into  a  line,  the  rest  of  the  line  is  shifted  right. 
If  a  symbol  is  deleted  from  a  line,  the  rest  of  the  line  is  shifted  left.  If  a  whole  line  is 
inserted,  every  line  below  is  shifted  down.  If  a  whole  line  is  deleted,  every  line  below  is 
shifted  up.  The  shifts  are  all  automatic. 

The  automatic  shifting  is  available  for  program  files,  but  the  program  UPDATE  is 
required  for  data  files.  Initially  the  user  is  asked  for  the  name  of  the  file  to  be  edited. 
Then  in  the  case  of  Hewlett-Packard  BASIC  or  Microsoft  BASIC  the  user  is  asked  if  a 
new  file  is  to  be  created,  in  which  case  the  new  file  is  created,  or  in  the  case  of  True 
BASIC  the  icon  of  a  /*  must  be  dragged  from  the  disk  window  to  the  True  BASIC  folder. 
This  creates  a  kernel  of  the  file.  If  the  file  already  exists  it  is  just  copied  from  disk 
storage  to  transistor  storage. 

Next  the  user  is  asked  for  a  line  number,  at  which  point  the  line  with  that  number 
is  displayed  on  the  screen.  The  line  can  be  edited,  after  which  the  user  is  asked  to 
select  an  operation  from  the  following  list: 

S=Save  R=Replace  I=Insert  D=Delete  F=File 

When  the  editing  is  complete,  the  operation  F  copies  the  file  from  transistor  storage 
back  to  disk  storage. 

When  there  is  a  repetition  of  the  same  set  of  lines,  the  program  UPDATE  may  be 
modified  so  that  the  set  of  lines  is  inserted  sequentially  during  the  cycles  of  a  loop. 

When  keying  data  into  the  computer  it  is  wise  to  start  with  a  hand  written  copy  of 
the  data.  It  is  too  easy  to  hit  the  wrong  key  and  lose  part  of  the  input. 
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CARTOGRAPHY 


A  line  in  a  map  can  be  simulated  by  a  polygon  if  the  sides  of  the  polygon  are  short 
enough.  It  is  necessary  only  to  list  the  coordinates  of  corners  of  the  polygon.  Then  a 
plotter  can  connect  the  corners  to  complete  the  polygon.  Available  data  are  USAMAP 
for  the  United  States  and  WLDMAP  for  the  World.  There  are  10000  data  in  USAMAP  and 
there  are  8000  data  in  WLDMAP.  The  data  were  digitized  for  the  now  obsolete  Naval 
Ordnance  Research  Calculator. 

On  the  main  frame  the  data  have  the  original  NORC  format.  Each  datum  is  a  16-digit 


word  in  the.  following  format: 

Digits 

Interpretation 

1 

0  for  N,  1  for  S 

2-4 

degrees  of  latitude 

5 

0  for  N,  1  for  S 

6-8 

minutes  of  latitude 

9 

0  for  E,  1  for  W 

10  -  12 

degrees  of  longitude 

13 

0  for  E,  1  for  W 

14  -  16 

minutes  of  longitude 

The  first  11  digits  in  each  record  give  the  file  number,  the  block  number,  and  the 
record  number.  The  block  may  have  any  size  equal  to  or  less  than  100.  The  data  in  a 
block  are  preceded  by  a  beginning~of-block  word  and  are  terminated  with  an 
end-of-block  word.  The  beginning-of-block  word  and  the  end-of-block  word  give  the 
number  of  words  in  each  block.  However,  they  are  bypassed,  because  an  end-of-line 
word  is  a  row  of  sevens.  A  file  is  terminated  with  a  NORC  end-of-file  word. 

The  plotting  of  maps  on  the  main  frame  is  controlled  by  subroutine  CTGPHC.  An 
auxiliary  file  gives  the  formats  for  any  lines  such  as  solid  lines,  dotted  lines,  dashed 
lines,  or  dot— dash  lines.  Reference  is  made  to  a  mapping  transformation  for  the 
conversion  of  geodetic  coordinates  into  map  coordinates. 

For  home  computers  each  datum  is  expressed  in  bytes.  Latitude  is  expressed  as 
minutes  north  of  the  South  Pole,  and  longitude  is  expressed  as  minutes  east  of  the 
180th  Meridian.  Each  datum  is  a  4-byte  word  with  the  following  format: 

Bytes  Interpretation 

1-2  Minutes  of  latitude 

3-4  Minutes  of  longitude 

where  one  high  order  unit  is  256  low  order  units.  Thus  there  has  been  a  four-fold 
compression  of  the  data. 

The  end-of-line  word  is  65535,0  and  the  end-of-section  word  is  65535, 65535. There 
is  provision  for  four  sections  of  map  with  each  section  in  one  of  four  formats  in  DATA 
statements. 

The  program  CTGPHK  is  set  up  to  plot  a  map  of  the  United  States  in  the  Mercator 
projection  with  solid  lines  for  coasts,  rivers,  and  lakes,  with  dashed  lines  for  state 
boundaries,  and  with  dot-dash  lines  for  international  boundaries.  The  region,  the 
projection,  the  line  formats,  and  the  printer  can  be  changed  by  editing  within  the 
program. 

There  are  three  versions  of  CTGPHK.  One  version  is  in  Hewlett-Packard  BASIC,  the 
second  version  is  in  Microsoft  BASIC,  and  the  current  version  is  in  True  BASIC. 


TYPOGRAPHY 


The  characters  in  a  character  repertory  can  be  simulated  by  polygons  if  the  sides 
of  the  polygons  are  short  enough.  It  is  necessary  only  to  list  the  coordinates  of  the 
corners  of  the  polygons.  Then  a  plotter  can  connect  the  corners  to  complete  the 
polygons. 

The  printer's  standard  is  10-point  type  with  2  points  of  leading,  where  there  are  72 
points  per  inch.  Polygonal  simulation  requires  a  finer  raster. 

The  smallest  circle  is  simulated  by  an  octagon  of  radius  7  raster  units  because  the 
square  of  7  is  49  and  nearly  equal  to  50  or  twice  the  square  of  5.  Distinction  between 
lower  case  and  upper  case  requires  a  factor  of  3  so  the  normal  height  of  character  is 
21  raster  units  and  the  normal  spacing  between  lines  is  32  raster  units.  However,  clarity 
is  improved  if  8  units  are  added  to  make  the  spacing  40  raster  units.  At  the  standard 
of  6  lines  per  inch  there  are  240  raster  units  per  inch,  which  happens  to  be  also  the 
choice  of  IBM  for  their  addressable  raster. 

On  the  main  frame  there  is  an  occidental  repertory  OCCRPY  with  1642  characters 
and  there  is  an  oriental  repertory  ORIRPY  with  705  characters.  The  occidental  repertory 
has  Old  English  which  is  not  everywhere  obtainable.  The  repertories  are  scalable  to  any 
multiple  of  their  normal  size. 

For  the  digitization  the  characters  were  plotted  on  10-to-the-inch  graph  paper. 
Convenience  in  digitization  was  achieved  when  complements  were  recorded  for  negative 
coordinates.  Thus  negative  values  ranged  from  50  to  99  while  positive  values  ranged 
from  00  to  50.  It  was  not  necessary  to  devote  a  digit  to  the  sign.  The  X- coordinate  is 
positive  rightward  and  the  Y-coordinate  is  positive  downward.  Each  datum  is  a  4-digit 
word  with  the  following  format: 

Digits  Interpretation 

1-2  X-coordinate 

3-4  Y-coordinate 

Each  character  occupies  a  block  of  data  in  NORC  format.  The  first  11  digits  in  each 
record  give  the  file  number,  the  block  number,  and  the  record  number.  Each  block 
begins  at  the  beginning  of  a  record  and  continues  to  the  end  of  the  block.  The  data  in 
each  block  are  preceded  by  a  beginning-of-biock  word  and  are  terminated  by  an 
end— of— block  word.  The  beginning— of— block  word  and  the  end— of— block  word  give  the 
number  of  words  in  each  block.  However,  they  are  bypassed,  because  the  end— of— line 
datum  is  5000  and  the  end-of-character  datum  is  5050.  The  first  datum  for  each 
character  gives  the  distance  to  the  left  edge  of  the  character  block,  and  the  second 
datum  gives  the  distance  to  the  right  edge  of  the  character  block.  The  remainder  of 
the  data  are  the  corners  in  the  polygonal  simulation  with  origin  at  the  centroid  of  the 
character  block. 

The  plotting  of  characters  is  under  the  control  of  subroutine  TXGPHC.  The  repertory 
of  characters  is  copied  into  an  array  AD  while  the  address  of  each  character  is  stored 
in  an  index  array  AI.  Then  reference  to  the  index  array  locates  any  character  at 
electronic  speed. 

Although  any  character  can  be  located  by  its  character  number  in  the  repertory,  it 
is  more  convenient  to  identify  the  character  by  its  alphanumeric  symbol.  Thus  TXGPHC 
knows  the  numbers  for  characters  in  a  large  number  of  fonts. 

Input  to  the  textographic  subroutine  is  a  file  of  data  in  which  each  line  of  text  is 
followed  by  any  number  of  lines  of  control.  The  link  between  text  data  and  control  data 
is  the  column  number  in  the  line  of  text.  The  language  of  the  control  data  is  a  set  of 
mnemonics  which  abbreviate  instructions  to  TXGPHC.  A  listing  of  the  mnemonics  for 
the  main  frame  is  enclosed  herewith. 
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MNEMONICS  FOR  TYPOGRAPHY 


PLOT 

oc.xxxx,Ym, 

MS.SSSS.SSSS.SSSS.SSSS. 

XY.XXXX,YYYY, 

OK.NNNN, 

SK.NNNN, 

CK.NNNN, 

WUNNNN, 

PC.OMMM,  OR  PC,NNNN, 
PV,XXXX,YYYY, 


PRINT 

OC.XXXX.YYYY. 

MS.SSS5.SSSS.SSSS.SSSS, 

MA,XXXX.XXXX,YYYY.YYYY. 

IS.XXXX,YYYY, 

XY.XXXX.YYYY, 

HY.XXXX.YYYY. 

XY.XXXX.YYYY, 

HY.XXXX.YYYY, 

WL.NNNN. 

CW.NNNN. 

XO 

XH 

XN 

FX 

NX 

YP 

YS 

VT 

YQ 

PN 

PI 

SB 

SP 


PLOT  MODE 
ORIGIN  OF  COORDINATES 
MATRIX  OF  SCALING 
RESETTING  OF  COORDINATES 
ORIENTATION  OF  CHARACTER 
SIZE  OF  CHARACTER 
CASE  OF  CHARACTER 
WIDTH  OF  LINE 
‘  PLOTTING  OF  CHARACTER 
PLOTTING  OF  YECTOR 
RECYCLING  WITHOUT  CHANGE  OF  MODE 
RECYCLING  WITH  CHANGE  OF  MODE 

PRINT  MODE 
ORIGIN  OF  COORDINATES 
MATRIX  OF  SCALING 
MARGIN  ALLOWANCE 
INTERYAL  OF  SPACING 
RESETTING  OF  X  AND  Y 
INCREMENTING  OF  X  AND  RESETTING  OF  Y 
RESETTING  OF  X  AND  INCREMENTING  OF  Y 
INCREMENTING  OF  X  AND  Y 
WIDTH  OF  LINE 
CHANGE  OF  WIDTH 
NO  SPACE 
HALF  SPACE 
EN  SPACE 
FIXED  SPACE 
INDEX 

PRIMARY  YARIANT 
SECONDARY  YARIANT 
TERTIARY  YARIANT 
QUATERNARY  YARIANT 
PRINCIPAL  LEYEL  AT  NORMAL  SIZE 
PRINCIPAL  LEYEL  AT  INDEXiCAL  SIZE 
SUBSCRIPT  LEYEL  AT  INDEXICAL  SIZE 
SUPERSCRIPT  LEYEL  AT  INDEXICAL  SIZE 
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NNNN. 

LC 
LR 
LG 
LI 
UC 
UR 
-  UG 
Ul 
KR 
KG 
SR 
SG 
SS 
DR 
CR 
CG 
Cl 
CS 
CC 
TR 
Tl 
GG 
GE 
GI 
NJ 
AJ 

(NN) 

LL(NN,NN$YYYY) 

QA(NN,NN/NN.NN)  OR  QA(NN.NN$XXXX) 
OL(NN.NN/NN.NN)  OR  QL(NN.NN$XXXX) 
QR(NN,NN/NN,NN)  OR  QR(NN.NN$XXXX) 
QC(NN.NN/NN.NN)  OR  QC(NN.NN$XXXX) 
RL(LL/NN,NN) 

RV(NN.NN) 

LD(NN,NN$NNNN) 

DV(NN,NN/NN.NN) 

LM(NN,NN~NN,NN) 

RD(NN.NN) 


FRAME 

RETURN 


CHARACTER  NUMBER 
LOWER  CASE 
LOWER  CASE  ROMAN 
LOWER  CASE  GREEK 
LOWER  CASE  ITALIC 
UPPER  CASE 
UPPER  CASE  ROMAN 
UPPER  CASE  GREEK 
UPPER  CASE  ITALIC 
CARTOGRAPHIC  ROMAN 
CARTOGRAPHIC  GREEK 
SIMPLEX  ROMAN 
SIMPLEX  GREEK 
SIMPLEX  SCRIPT 
DUPLEX  ROMAN 
COMPLEX  ROMAN 
COMPLEX  GREEK 
COMPLEX  ITALIC 
COMPLEX  SCRIPT 
COMPLEX  CYRILLIC 
TRIPLEX  ROMAN 
TRIPLEX  ITALIC 
GOTHIC  GERMAN 
GOTHIC  ENGLISH 
GOTHIC  ITALIAN 
NONJUSTIFICATION 
AUTOJUSTIFICATION 
CONTINUATION 
LEADING  OF  LINE 
QUADDING  FOR  ALIGNMENT 
QUADDING  TO  LEFT 
QUADDING  TO  RIGHT 
QUADDING  FOR  CENTERING 
RULING  OF  LINE 
RULING  OF  VECTOR 
LEADER 
DIVISION 
LIMITS 
RADICAL 

RECYCLING  WITHOUT  CHANGE  OF  MODE 
RECYCLING  WITH  CHANGE  OF  MODE 

FRAME  ADVANCE 

END  OF  OPERATION 
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For  home  computers  each  coordinate  is  expressed  by  a  single  byte  with  a  bias  of  64. 
Each  datum  is  a  two— byte  word  with  the  following  format: 

Byte  Interpretation 

1  X-coordinate 

2  ■  Y-coordinate 

This  is  a  two-fold  compression  of  the  data.  The  end-of-line  word  is  0.64  and  the 
®^^^~o^~character  word  is  0,0,  From  the  biased  data  it  is  necessary  only  to  subtract 
64  to  obtain  the  unbiased  data. 

The  file  OCINDX  is  the  index  for  the  occidental  repertory  in  the  file  OCDATA,  and  the 
file  ORINDX  -is  the  index  for  the  oriental  repertory  in  the  file  ORDATA. 

Printing  is  under  the  control  of  the  program  TXGPHK.  Input  to  the  program  consists 
of  lines  of  ASCII,  with  each  line  of  text  followed  by  any  number  of  lines  of  control. 
Mnemonics  for  the  control  data  are  listed  hereafter. 

For  many  characters  in  ASCII  there  are  four  variants  in  the  printed  output.  The 
transliterations  of  ASCII  into  Greek  are  listed  in  the  figure  labeled  GREEK,  and  the 
transliterations  of  ASCII  into  symbols  are  listed  in  the  figure  labeled  SYMBOL.  Application 
of  the  program  to  mathematics  is  illustrated  by  the  figure  labeled  TEST.  The  program 
TXGPHK  is  set  up  to  plot  the  Cross  of  Iona. 

There  are  three  versions  of  TXGPHK.  One  version  is  in  Hewlett-Packard  Basic,  the 
second  version  is  in  Microsoft  BASIC,  and  the  current  version  is  in  true  BASIC. 
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MNEMONICS 


•  PLOT 

OC,XXXX,YYYY, 

MS , SSSS , SSSS , SSSS , SSSS , 
XY,XXXX,YYYY, 

UL.NNNN, 

PC.NNNN, 

PO,XXXX,YYYY, 


* 


PLOT  MODE 
ORIGIN  OF  COORDINATES 
MATRIX  OF  SCALING 
RESETTING  OF  COORDINATES 
WIDTH  OF  LINE 
PLOTTING  OF  CHARACTER 
PLOTTING  OF  UECTOR 
RECYCLING  WITHOUT  CHANGE  OF  MODE 
RECYCLING  WITH  CHANGE  OF  MODE 


PRINT 

OC,XXXX,YYYY, 

MS, SSSS, SSSS, SSSS, SSSS, 

MA,XXXX,XXXX, YYYY, YYYY, 

IS,XXXX,YYYY, 

XY,XXXX,YYYY, 

HY,XXXX,YYYY, 

XU,XXXX,YYYY, 

HU,XXXX,YYYY, 

WL , NNNN , 

XO 

XH 

XN 

NX 

UP 

US 

UT 

UQ 

PN 


PI 


SB 

SP 


PRINT  MODE 
ORIGIN  OF  COORDINATES 
MATRIX  OF  SCALING 
MARGIN  ALLOWANCE 
INTERUAL  OF  SPACING 
RESETTING  OF  X  AND  Y 
INCREMENTING  OF  X  AND  RESETTING  OF  Y 
RESETTING  OF  X  AND  INCREMENTING  OF  Y 
INCREMENTING  OF  X  AND  Y 
WIDTH  OF  LINE 
NO  SPACE 
HALF  SPACE 
EN  SPACE 
INDEX 

PRIMARY  UARIANT 
SECONDARY  UARIANT 
TERTIARY  UARIANT 
QUATERNARY  UARIANT 
PRINCIPAL  LEUEL  AT  NORMAL  SIZE 
PRINCIPAL  LEUEL  AT  INDEXICAL  SIZE 
SUBSCRIPT  LEUEL  AT  INDEXICAL  SIZE 
SUPERSCRIPT  LEUEL  AT  INDEXICAL  SIZE 
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NNNN, 
K-R 
KG 
SR 
SG 
SS 
DR 
CR 
CG 
Cl 
CS 
CC 
TR 
TS 
TI 
66 
GE 
61  ■ 

NJ 

AJ 

(NN  ) 

SX(NN) 

QX(NN) 


LL(NN,NN$YYYY) 

QL(NN,NN/NN,NN)  OR  QL( NN , NNSXXXX  ) 
QC(NN,NN/NN,NN)  OR  QC( NN, NNSXXXX  ) 
QR(NN,NN/NN,NN)  OR  QR( NN , NNSXXXX  ) 
RU(NN,NN) 

DV(NN,NN/NN,NN) 

LM<NN,NN-NN,NN) 

RD(NN,NN  ) 


CHARACTER  NUMBER 
CARTOGRAPHIC  ROMAN 
CARTOGRAPHIC  GREEK 
SIMPLEX  ROMAN 
SIMPLEX  GREEK 
SIMPLEX  SCRIPT 
DUPLEX  ROMAN 
COMPLEX  ROMAN 
COMPLEX  GREEK 
COMPLEX  ITALIC 
COMPLEX  SCRIPT 
COMPLEX  CYRILLIC 
TRIPLEX  ROMAN 
TRIPLEX  GREEK 
TRIPLEX  ITALIC 
GOTHIC  GERMAN 
GOTHIC  ENGLISH 
GOTHIC  ITALIAN 
NONJUSTIFICATION 
AUTOJUSTIFICATION 
CONTINUATION 
SAUE  X  FOR  ALIGNMENT 
SHIFT  X  FOR  ALIGNMENT 
LEADING  OF  LINE 
QUADDING  TO  LEFT 
QUADDING  FOR  CENTERING 
QUADDING  TO  RIGHT 
RULING  OF  UECTOP. 

DIUISION 

LIMITS 

RADICAL 


RECYCLING  WITHOUT  CHANGE  OF  MODE 


RECYCLING  WITH  CHANGE  OF  MODE 


FRAME 


FRAME  ADUANCE 


RETURN 


END  OF  OPERATION 
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PROGRAMS 


In  order  to  use  the  programs  in  the  showcase  the  computer  must  be  loaded  with 
the  standard  edition  of  True  BASIC  and  with  the  Communication  Toolkit.  Then  the 
programs  can  be  keyed  in  through  the  keyboard.  The  programs  are  listed  in  Appendix  A. 

SAMPLES 

The  best  way  to  show  how  to  use  the  computer  would  be  a  walk  through  the  steps 
of  a  procedure.  Otherwise,  it  should  be  helpful  if  a  copy  of  input  and  a  plot  of  output 
are  available  for  comparison. 

The  Macintosh  is  connected  to  the  LaserJet  through  the  modem  port.  The  LaserJet  is 
set  to  LETTER  format.  The  addressable  raster  has  1016  steps  per  inch  in  an  8"xl0|" 
field.  The  resolvable  raster  has  300  dots  per  inch  with  resolution  enhancement.  The 
X” coordinate  is  positive  rightward  and  the  Y- coordinate  is  positive  upward.  The  origin 
of  coordinates  is  at  the  lower  left  corner  of  the  printer  field. 

A  few  samples  are  presented  in  Appendix  X. 

DISCUSSION 

A  number  of  agencies  have  acquired  the  occidental  repertory.  The  National  Bureau 
of  Standards  has  published  a  report  in  which  the  characters  are  listed  and  plotted  in 
detail.  The  occidental  repertory  is  the  foundation  of  the  Interactive  Data  Language  of 
Research  Systems,  Inc.  However,  they  use  the  conventional  format  for  input  where  the 
text  data  and  the  control  data  are  mixed  together  in  a  single  stream.  They  use  the 
exclamation  point  for  the  escape  character.  It  is  easier  to  proofread  in  the  present 
system  where  each  line  of  text  data  is  separate  from  the  lines  of  control  data. 

On  the  main  frame  the  subroutine  TXGPHC  provides  both  horizontal  justification  and 
vertical  justification.  All  of  the  pages  of  a  report  can  be  prepared  in  a  single  pass. 

On  a  home  computer  the  program  TXGPHK  can  prepare  only  single  pages  one  at  a 
time.  Vertical  Justification  must  be  performed  by  hand.  It  is  possible  that  a  program 
could  be  designed  to  report  what  to  try  for  vertical  justification. 

In  the  usual  application  more  than  one  plot  are  combined  to  make  a  composite  plot. 
On  the  main  frame  the  main  program  can  call  any  number  of  subroutines  and  a 
composite  plot  is  made  in  a  single  run.  On  the  home  computer  only  one  plot  is  made 
in  each  run.  The  composite  plot  is  assembled  on  a  single  sheet  which  is  passed  more 
than  once  through  the  printer. 

Errors  of  registration  are  a  problem. 

CONCLUSION 

Cartography  and  typography  on  a  LaserJet  printer  are  possible  with  True  BASIC  in  a 
Macintosh  computer. 
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APPENDIX  A 


PROGRAMS 


I  "UPDATE” 

J  ic  ic -k  ie  -k  -k -k -k  :k  ic  ic  ic -k  ic  ic -k -k -k -k -k -k  iz -k  i: 

l  True  BASIC  UPDATE  (MAC) 

I  *************************** 


S=SAVE 

R=REPLACE 

I=INSERT 

D=DELETE 

F=FILE 

/*  =  KERNEL  FILE 
/*  =  END  OF  FILE 


1 
2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 

15  OPTION  NOLET 

16  FOR  1=1  TO  6400 

17  C$[I:I]="  " 

18  NEXT  I 

20  INPUT  PROMPT  "FILE  NAME?":N$ 

21  OPEN#l:  NAME  N$,  ORG  BYTE 

22  SET#1:  RECSIZE  32 

23  SET#1:  POINTER  BEGIN 

24  N=1 

25  READ#1, BYTES  32:  B$ 

26  J=32*N 

27  I=J-31 

28  C$[I:J]=B$ 

29  N=N+1 


30  K=ORD(B$[l:  1]  ) 

31  K=256*K+ORD(B$[2:2]) 

32  IF  KO12074  THEN  25 

33  INPUT  PROMPT  "INPUT  N":N 

34  J=32*N 

35  I=J-31 

36  A$=C$[I:J] 

37  PRINT  "A$="&A$ 

38  PRINT  "  "&S$ 

39  LINE  INPUT  PROMPT  "X$=":X$ 

40  PRINT  "  "&S$ 

41  INPUT  PROMPT  "INPUT  OP":K$ 

42  K=ORD(K$[l:l]) 

43  IF  K=83  THEN  33 

44  IF  K=82  THEN  61 

45  IF  K=73  THEN  65 

46  IF  K=68  THEN  49 

47  IF  K=70  THEN  78 

48  GOTO  41 

49  K=N+1 

50  J=32*K 


II 


UPDATE 


51  I=J-31 

52  A$=C$[I:J] 

53  J=32*N 

54  I=J-31 

55  C$[I:J]=A$ 

56  N=K 

57  K=0RD(A$[1:1]) 

58  K=256*K+ORD(A$[2;2]) 

59  IF  KO12074  THEN  49 

60  GOTO  33 

61  J=32*N 

62  I=J-31 

63  C$[I:J]=X$ 

64  GOTO  33 

65  J=32*N 

66  I=J“31 

67  A$=C$[I:J] 

68  C$[I:J]=X$ 

69  X$=A$ 

70  N=N+1 

71  K=ORD(A$[l:l]) 

72  K=256*K+ORD(A$[2:2] ) 

73  IF  KO12  074  THEN  65 

74  J=32*N 

75  I=J-31 

76  C$[I:J]=X$ 

77  GOTO  33 

78  SET#1:  POINTER  BEGIN 

79  N=1 

80  J=32*N 

81  I=J-31 

82  A$=C$[I:J] 

83  WRITE#l:A$ 

84  N=N+1 

85  K=ORD(A$[l:l]) 

8  6  K=256*K+ORD(A$[2:2]  ) 

87  IF  KO12074  THEN  80 

88  CLOSE# 1 

89  END 


UPDATE 


1  !  "CTGPHK" 

2  1  ******************************** 

3  i  True  BASIC  CARTOGRAPHIC  (MAC) 

4  I  ******************************** 

5  OPTION  NOLET 

6  DIM  F0(28) 

7  OPEN#l:  NAME  "USAMAP",  ORG  BYTE 


8 

SET#1; 

RECSIZE  32 

9 

SET#1: 

POINTER  BEGIN 

10 

DATA 

777  , 

777  ,  ■ 

042 

/ 

028 

11 

DATA 

000  , 

000  , 

028 

/ 

028 

12 

DATA 

000  , 

000  , 

028 

t 

028 

13 

DATA 

000  , 

000  , 

028 

/ 

000 

14 

DATA 

000  , 

000  , 

042 

/ 

000 

15 

DATA 

000  , 

000  , 

000 

/ 

000 

16 

DATA 

000  , 

000  , 

000 

/ 

000 

17 

FOR  17 

=1  TO 

7 

18 

FOR  J7 

=1  TO 

4 

19 

K7=4*I7+J7-4 

20  READ  F0(K7) 

21  NEXT  J7 

22  NEXT  17 

23  RESTORE 

24  LIBRARY  "Comlib*" 

25  CALL  Com_open  (#2, 1, 9600, "D8  P-  SI  DTR  RXOFF  SXOFF") 

26  CALL  Send  (CHR$(27)&"E") 

27  CALL  Send  (CHR$ (27) &"%0B") 

28  CALL  Send  ("IN;  "£<"SP1;  "&"PW.  1;  ") 

29  X0=5700 

30  Y0=-5000 

31  Q0=PI/10800 

32  E0=65535 

33  A0=48000/21600 

34  C0=12000/Pl 

35  L0=1 

36  N0=1 

37  READ#1,  BYTES  32;  B$ 

38  10=1 

39  Y7=ORD(B$[IO:IO]) 

40  10=10+1 

41  Y7=256*Y7+ORD(B$[IO:IO] ) 

42  10=10+1 

43  X7=ORD(B$[IO:IO]) 

44  10=10+1 

45  X7=256*X7+ORD(B$[IO:IO]) 

46  10=10+1 

47  IF  Y7=65535  THEN  49 

48  GOTO  51 

49  IF  X7=65535  THEN  97 

50  GOTO  88 


USAMAP 


51  GOSUB  107 

52  IF  E0=65535  THEN  88 

53  X4=X2-X1 

54  Y4=Y2-Y1 

55  S7=X4*X4+Y4*Y4 

56  D7=SQR(S7) 

57  K7=4*J7+N0-4 

58  G7=F0(K7) 

59  IF  G7=0  THEN  84 

60  IF  H7+D7>=G7  THEN  66 

61  S7=l 

62  H7=H7+D7 

63  D7=0 

64  IF  H7=0  THEN  91 

65  GOTO  69 

66  S7=(G7-H7)/D7 

67  D7=H7+D7-G7 

68  H7=0 

69  X3=X1+S7* (X2-X1) 

70  Y3=Y1+S7* (Y2-yi) 

71  IF  J7=2*IP(J7/2)  THEN  81 

72  X5=  3600+Yl 

73  Y5=10800-X1 

74  A$=»PU''&STR$(X5)  &  "  ,  "&STR$  (Y5) 

75  CALL  Send(A$) 

76  X5=  3600+Y3 

77  Y5=10800-X3 

78  A$="PD"&STR$(X5) "£eSTR$(Y5) 

79  CALL  Send(A$) 

80  E7=E7 

81  X1=X3 

82  Y1=Y3 

83  IF  H7>0  THEN  91 

84  J7=J7+1 

85  IF  J7<8  THEN  57 

86  J7=l 

87  GOTO  57 

88  H7=0 

89  D7=0 

90  J7=l 

91  E0=Y7 

92  X1=X2 

93  Y1=Y2 

94  IF  I0<33  THEN  39 

95  LO=LO+1 

96  GOTO  37 

97  N0=N0+1 

98  IF  N0<=4  THEN  91 

99  A$=  CHR$(27) &"%0A"&CHR$  (27) &''E" 


USAMAP 


100  FOR  1=1  TO  256 

101  A$=A$&"  '• 

102  NEXT  I 

103  CALL  Send  (A$) 

104  CLOSE#l 

105  CLOSE#2 

106  GOTO  114 

107  !FND7 

108  X2=X0+A0*(X7-5040) 

109  Q7=Q0* (¥7-5400) 

110  S7=SIN(Q7) 

111  Y2=YO-CO*LOG( (1-S7)/ (1+S7)  ) 

112  E7=Q7 

113  RETURN 

114  END 


USAMAP 


1  !  "CTGPHK" 

2  I  ******************************** 

3  !  True  BASIC  CARTOGRAPHIC  (MAC) 

4  I  ******************************** 

5  OPTION  NOLET 

6  DIM  F0(28) 

7  OPEN#l:  NAME  "WLDMAP",  ORG  BYTE 


8 

SET#1: 

RECSIZE  32 

9 

SET#1; 

POINTER  BEGIN 

10 

DATA 

777 

/ 

777  , 

042  , 

028 

11 

DATA 

000 

/ 

000  , 

028  , 

028 

12 

DATA 

000 

/ 

000  , 

028  , 

028 

13 

DATA 

000 

/ 

000  , 

028  , 

000 

14 

DATA 

000 

i 

000  , 

042  , 

000 

15 

DATA 

000 

/ 

000  , 

000  , 

000 

16 

DATA 

000 

/ 

000  , 

000  , 

000 

17 

FOR  17 

=1  TO 

7 

18 

FOR  J7 

=1  TO 

4 

19  K7=4*I7+J7-4 

20  READ  F0(K7) 

21  NEXT  J7 

22  NEXT  17 

23  RESTORE 

24  LIBRARY  "Comlib*" 

25  CALL  Coin_open  (#2 , 1 , 9600 ,  "D8  P-  SI  DTR  RXOFF  SXOFF") 

26  CALL  Send  (CHR$(27)&''E") 

27  CALL  Send  (CHR$ (27) &"%GB" ) 

28  CALL  Send  ( "IN;  •'&"SP1 ;  " &"PW .  1 ;  " ) 

29  X0=2500 

30  Y0=0 

31  Q0=PI/10800 

32  E0=65535 

33  A0=6400/21600 

34  C0=1600/PI 

35  L0=1 

36  N0=1 

37  READ#1,  BYTES  32:  B$ 

38  10=1 

39  Y7=ORD(B$[IO:IO]) 

40  10=10+1 

41  Y7=256*Y7+ORD(B$[IO:IO] ) 

42  10=10+1 

43  X7=ORD(B$[IO;IO]) 

44  10=10+1 

45  X7=256*X7+ORD(B$[IO:IO]) 

46  10=10+1 

47  IF  Y7=65535  THEN  49 

48  GOTO  51 

49  IF  X7=65535  THEN  97 

50  GOTO  88 


WLDMAP’ 


51  GOSUB  107 

52  IF  E0=65535  THEN  88 

53  X4=X2-X1 

54  y4=Y2-Yl 

55  S7=X4*X4+Y4*Y4 

56  D7=SQR(S7) 

57  K7=4*J7+N0-4 

58  G7=F0(K7) 

59  IF  G7=0  THEN  84 

60  IF  H7+D7>=G7  THEN  66 

61  S7=l 

62  H7=H7+D7 

63  D7=0 

64  IF  H7=0  THEN  91 

65  GOTO  69 

66  S7=(G7-H7) /D7 

67  D7=H7+D7-G7 

68  H7=0 

69  X3=X1+S7*(X2-X1) 

70  Y3=Y1+S7*(Y2-Y1) 

71  IF  J7=2*IP(J7/2)  THEN  81 

72  X5=  4000+Yl 

73  Y5=10800-X1 

74  A$="PU"&STR$ (X5) &" , "&STR$ (Y5) 

75  CALL  Send  (A$) 

76  X5=  4000-+Y3 

77  Y5=10800-X3 

78  A$="PD''&STR$(X5) "&STR$(Y5)  ' 

79  CALL  Send  (A$) 


80 

E7=E7 

81 

X1=X3 

82 

Y1=Y3 

83 

IF  H7>0 

THEN 

91 

84 

J7=J7+1 

85 

IF  J7<8 

THEN 

57 

86 

J7=l 

87  GOTO  57 

88  H7=0 

89  D7=0 

90  J7=l 

91  E0=Y7 

92  X1=X2 

93  Y1=Y2 

94  IF  I0<33  THEN  39 

95  LO=LO+1 

96  GOTO  37 

97  N0=N0+1 

98  IF  N0<=1  THEN  91 

99  A$=  CHR$ (27) &"%0A"&CHR$ (27) &"E" 
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100  FOR  1=1  TO  256 

101  A$=A$&"  »» 

102  NEXT  I 

103  CALL  Send  (A$) 

104  CLOSE#l 

105  CLOSE#2 

106  GOTO  114 

107  IFND7 

108  X2=X0+A0*X7 

109  Q7=Q0*(Y7-5400) 

110  S7=SIN{Q7) 

111  Y2=YO-CO*LOG ( ( 1-S7 ) / ( 1+S7 ) ) 

112  E7=Q7 

113  RETURN 

114  END 
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1 

2 

3 

4 

5 

6 

7 

8 
9 


"TXGPHK” 

True  BASIC  TEXTOGRAPHIC  (MAC) 

*  *  *  *  *  ******i(1e****-k***ic**ic-k**-k-k*-k 

E=1  FOR  FRAME 
E=2  FOR  RETURN 
E=3  FOR  ERROR 


10  OPTION  NOLET 


11  DECLARE  FUNCTION  FNI7 , FND7 , FNT7 

12  DIM  K0(32) ,K1(32) ,D1(96) ,D2(288) 

13  DIM  Gl(28) ,G2(28) ,G3(28) ,G4(28) 

14  DIM  Fl(32) ,F2(32) ,F3(32) ,F4(32) 

15  OPEN#l:  NAME  "OCINDX”,  ORG  BYTE 

16  SET#1:  RECSIZE  32 

17  OPEN#2 :  NAME  "OCDATA" ,  ORG  BYTE 

18  SET#2:  RECSIZE  32 

19  OPEN#3;  NAME  ''KROSS",  ORG  BYTE 

20  SET#3:  RECSIZE  32 

21  SET#3:  RECORD  1 

22  DATA  027  ,  028  ,  048  ,  030 

23  DATA  031  ,  047  ,  029  ,  033 

24  DATA  035  ,  000  ,  036  ,  037 

25  DATA  038  ,  039  ,  041  ,  042 

26  DATA  034  ,  043  ,  044  ,  045 

27  DATA  046  ,  000  ,  050  ,  040 

28  DATA  049  ,  032  ,  000  ,  000 

29  FOR  17=1  TO  28 

30  READ  X7 

31  G1(I7)=X7 

32  NEXT  17 


33  DATA  127  ,  128  ,  148  ,  130 

34  DATA  131  ,  147  ,  129  ,  133 

35  DATA  135  ,  000  ,  136  ,  137 

36  DATA  138  ,  139  ,  141  ,  142 

37  DATA  134  ,  143  ,  144  ,  145 

38  DATA  146  ,  000  ,  150  ,  140 

39  DATA  149  ,  132  ,  000  ,  000 

40  FOR  17=1  TO  28 

41  READ  X7 


42  G2(I7)=X7 

43  NEXT  17 


44  DATA  027  ,  028  ,  048  ,  266 

45  DATA  031  ,  047  ,  029  ,  033 

46  DATA  035  ,  000  ,  036  ,  037 

47  DATA  038  ,  039  ,  041  ,  401 

48  DATA  034  ,  043  ,  402  ,  045 

49  DATA  046  ,  000  ,  050  ,  040 

50  DATA  049  ,  032  ,  000  ,  000 
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51 

FOR  : 

17=1  ' 

TO 

28 

52 

READ 

X7 

53 

G3  (I7)=X7 

54 

NEXT 

17 

55 

DATA 

127 

/ 

128 

/ 

148 

/ 

265 

56 

DATA 

184 

/ 

186 

/ 

129 

/ 

133 

57 

DATA 

135 

/ 

000 

/ 

136 

7 

137 

58 

DATA 

138 

/ 

139 

/ 

141 

/ 

142 

59 

DATA 

185 

/ 

143 

/ 

144 

9 

145 

60 

DATA 

146 

/ 

000 

/ 

150 

9 

140 

61 

DATA 

149 

/ 

132 

9 

000 

9 

000 

62 

FOR  17=1  TO 

28 

63 

READ 

X7 

64 

G4  (I7)=X7 

65 

NEXT 

17 

66 

DATA 

214 

/ 

214 

/ 

214 

9 

214 

67 

DATA 

217 

/ 

217 

9 

217 

9 

217 

68 

DATA 

275 

1 

275 

9 

267 

9 

411 

69 

DATA 

274 

/ 

274 

9 

268 

9 

412 

70 

DATA 

271 

/ 

271 

9 

271 

9 

271 

71 

DATA 

272 

r 

272 

9 

272 

9 

272 

72 

DATA 

216 

/ 

216 

9 

216 

9 

252 

73 

DATA 

221 

/ 

221 

9 

221 

9 

403 

74 

DATA 

222 

/ 

222 

9 

222 

9 

404 

75 

DATA 

219 

/ 

219 

9 

235 

9 

236 

76 

DATA 

232 

/ 

232 

9 

232 

9 

233 

77 

DATA 

211 

/ 

211 

9 

211 

9 

251 

78 

DATA 

231 

/ 

231 

9 

231 

9 

234 

79 

DATA 

210 

r 

210 

9 

210 

9 

210 

80 

DATA 

220 

/ 

220 

9 

220 

9 

239 

81 

DATA 

212 

/ 

212 

/ 

212 

9 

212 

82 

DATA 

213 

/ 

213 

/ 

213 

r 

213 

83 

DATA 

241 

t 

241 

9 

243 

§ 

227 

84 

DATA 

238 

t 

238 

9 

238 

9 

240 

85 

DATA 

242 

t 

242 

9 

244 

9 

228 

86 

DATA 

215 

/ 

215 

9 

215 

9 

215 

87 

DATA 

273 

/ 

273 

9 

218 

9 

270 

88 

DATA 

223 

/ 

223 

9 

223 

9 

405 

89 

DATA 

084 

t 

084 

9 

276 

9 

277 

90 

DATA 

224 

/ 

224 

9 

224 

9 

406 

91 

DATA 

085 

/ 

085 

9 

259 

9 

257 

92 

DATA 

261 

/ 

262 

9 

263 

9 

264 

93 

DATA 

225 

/ 

225 

9 

225 

9 

407 

94 

DATA 

229 

/ 

229 

9 

229 

9 

230 

95 

DATA 

226 

/ 

226 

9 

226 

9 

408 

96 

DATA 

000 

f 

000 

9 

000 

9 

000 

97 

DATA 

000 

t 

000 

9 

000 

9 

000 

98 

FOR  17=1  TO 

32 

99  READ  P7,S7,T7,Q7 

100  F1(I7)=P7 
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101  F2(I7)=S7 

102  F3(I7)=T7 

103  F4(I7)=Q7 

104  NEXT  17 

105  RESTORE 

106  LIBRARY  ''Coitllib*'* 

107  CALL  Coin_open  (#4, 1, 9600,  "D8  P-  SI  DTR  RXOFF  SXOFF") 

108  CALL  Send  (CHR$  (27) &''E"&CHR$  (27) &"%0B"&"IN;  "&"SP1; '•) 

109  10=1 

110  J0=0 

111  L0=0 

112  K7=32 

113  GOSUB  731 

114  P7=K0(K7) 

115  GOSUB  731 

116  P7=256*P7+K0(K7) 

117  IF  P7=20556  THEN  122 

118  IF  P7=20562  THEN  151 

119  IF  P7=18002  THEN  889 

120  IF  P7=21061  THEN  891 

121  GOTO  893 

122  K7=32 

123  GOSUB  731 

124  IF  K0(K7)=44  THEN  123 

125  IF  K0(K7)=46  THEN  122 

126  IF  K0(K7)=42  THEN  112 

127  P7=K0(K7) 

128  GOSUB  731 

129  P7=256*P7+K0 (K7) 

130  GOSUB  731 


131 

Q0= 

=  .001 

132 

IF 

P7=20566 

THEN 

139 

133 

IF 

P7=20547 

THEN 

141 

134 

IF 

P7=22617 

THEN 

143 

135 

IF 

P7=22348 

THEN 

145 

136 

IF 

P7=19795 

THEN 

147 

137 

IF 

P7=20291 

THEN 

149 

138  GOTO  893 

139  GOSUB  721 

140  GOTO  124 

141  GOSUB  698 

142  GOTO  124 

143  GOSUB  635 

144  GOTO  124 

145  GOSUB  630 

146  GOTO  124 

147  GOSUB  597 

148  GOTO  124 

149  GOSUB  588 

150  GOTO  124 
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151  K7=32 

152  GOSUB  731 

153  FOR  K7=l  TO  32 

154  K1(K7)=K0(K7) 

155  NEXT  K7 

156  N7=l 

157  GOSUB  731 

158  P7=K0(K7) 

159  IF  P7=44  THEN  157 

160  IF  P7=41  THEN  157 

161  Q0=.001 

162  IF  P7>64  THEN  168 

163  IF  P7>47  THEN  521 

164  IF  P7=40  THEN  525 

165  IF  P7=46  THEN  773 

166  IF  P7=42  THEN  773 

167  GOTO  893 

168  GOSUB  731 

169  Q7=K0(K7) 

170  GOSUB  731 

171  P7=P7-64 

172  IF  P7>13  THEN  174 

173  ON  P7  GOTO  176,187,188,205,251,252,253,263,269,272,273,283,354 

174  P7=P7-13 

175  ON  P7  GOTO  360,369,372,385,409,443,478,488,489,501,504,519,520 

176  IF  Q7074  THEN  893 

177  J0=1 

178  Jl=l 

179  N3=0 

180  L1=M1 

181  L3=M1 

182  L4=0 

183  Q1=0 

184  X1=M1 

185  V2=0 

186  GOTO  158 

187  GOTO  893 

188  IF  Q7082  THEN  191 

189  G0=0 

190  GOTO  158 

191  IF  Q7071  THEN  194 

192  G0=26 

193  GOTO  158 

194  IF  Q7073  THEN  197 

195  G0=50 

196  GOTO  158 

197  IF  Q7083  THEN  201 

198  F0=2500 

199  G0=50 

200  GOTO  158 
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201  IF  Q7067  THEN  893 

202  F0=2800 

203  G0=0 

204  GOTO  158 

205  IF  Q7082  THEN  209 

206  F0=2500 

207  G0=0 

208  GOTO  158 

209  IF  Q7086  THEN  893 

210  GOSUB  663 

211  K2=.5*(K4+K5) 

212  C7=Dl(3*K2-2) 

213  F7=IP(C7/1000) 

214  IF  I4-I3>I6-I5  THEN  233 

215  X2=I3-I5+2*F7 

216  Y2=12*F7 

217  L7=K5 

218  M7=K6 

219  GOSUB  693 

220  X2=X2+2*F7 

221  Y2=0 

222  L7=K6+1 

223  M7=32 

224  GOSUB  693 

225  X2=X2-.5*(I3+I4-I5-I6)-2*F7 

226  Y2=-12*F7 

227  L7=K3 

228  M7=K4 

229  GOSUB  693 

230  Dl(3*K2-2)=20000-I5+I6 

231  D1(3*K2-1)=X2+.5*(I3+I4) 

232  GOTO  158 

233  X2=2*F7 

234  Y2=-12*F7 

235  L7=K3 

236  M7=K4 

237  GOSUB  693 

238  X2=X2+I4-I6+2*F7 

239  Y2=0 

240  L7=K6+1 

241  M7=32 

242  GOSUB  693 

243  X2=X2+.5*(I3-I4-I5+I6)-2*F7 

244  Y2=12*F7 

245  L7=K5 

246  M7=K6 

247  GOSUB  693 

248  Dl(3*K2-2)=20000-I3+I4 

249  D1 (3*K2-1)=X2+. 5* (15+16) 

250  GOTO  158 
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251  GOTO  893 

252  GOTO  893 

253  G0=0 

254  IF  Q7071  THEN  257 

255  F0=3300 

256  GOTO  158 

257  IF  Q7069  THEN  260 

258  F0=3500 

259  GOTO  158 

260  IF  Q7073  THEN  893 

261  F0=3800 

262  GOTO  158 

263  IF  Q7089  THEN  266 

264  GOSUB  649 

265  GOTO  158 

266  IF  Q7086  THEN  893 

267  GOSUB  656 

268  GOTO  158 

269  IF  Q7083  THEN  893 

270  GOSUB  610 

271  GOTO  158 

272  GOTO  893 

273  F0=0 

274  IF  Q7082  THEN  277 

275  G0=0 

276  GOTO  158 

277  IF  Q7071  THEN  280 

278  G0=26 

279  GOTO  158 

280  IF  Q7073  THEN  893 

281  G0=50 

282  GOTO  158 

283  IF  Q7076  THEN  291 

284  X2=0 

285  GOSUB  663 

286  Y2=C7 

287  L7=K3 

288  M7=K4 

289  GOSUB  693 

290  GOTO  158 

291  IF  Q7077  THEN  893 

292  GOSUB  663 

293  C7=Dl(3*K3-5) 

294  E7=FNI7(C7) 

295  Il=Il+Dl(3*K3-4) 

296  I2=I2+Dl(3*K3-4) 

297  F7=IP(C7/1000) 

298  C7=C7-1000*F7 

299  IF  C7=412  THEN  301 

300  IF  C70268  THEN  311 
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301  X2=-4*F7 

302  GOSUB  339 

303  IF  I4-I3+X2>=I6-I5  THEN  306 

304  X2=I3-I5 

305  GOTO  307 

306  X2=I4-I6-4*F7 

307  GOSUB  344 

308  X2=I3-I5 

309  GOSUB  349 

310  GOTO  158 

311  IF  I4-I3>=I6-I5  THEN  322 

312  IF  I2-I1>I6-I5  THEN  332 

313  X2=I1-I3+.5*(I3-I4-I5+I6) 

314  GOSUB  339 

315  X2=X2+.5*(I3+I4-I5-I6) 

316  GOSUB  344 

317  X2=X2 

318  GOSUB  349 

319  X2=X2+.5* (15+16) 

320  D1(3*K3-4)=X2 

321  GOTO  158 

322  IF  I2-I1>I4-I3  THEN  332 

323  X2=I1-I3 

324  GOSUB  339 

325  X2=X2+I4-I6 

326  GOSUB  344 

327  X2=X2+.5*(I3-I4-I5+I6) 

328  GOSUB  349 

329  X2=X2+.5* (15+16) 

330  D1(3*K3-4)=X2 

331  GOTO  158 

332  X2=.5*(I1+I2-I3-I4) 

333  GOSUB  339 

334  X2=I2-I6 

335  GOSUB  344 

336  X2=. 5* (I1+I2-I5-I6) 

337  GOSUB  349 

338  GOTO  158 

339  Y2=18*F7 

340  L7=K3 

341  M7=K4 

342  GOSUB  693 

343  RETURN 

344  Y2=0 

345  L7=K6+1 

346  M7=32 

347  GOSUB  693 

348  RETURN 

349  Y2=-18*F7 

350  L7=K5 
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351  M7=K6 

352  GOSUB  693 

353  RETURN 

354  IF  Q7083  THEN  357 

355  GOSUB  597 

356  GOTO  158 

357  IF  Q7065  THEN  893 

358  GOSUB  617 

359  GOTO  158 

360  IF  Q7074  THEN  363 

361  J1=0 

362  GOTO  158 

363  IF  Q7088  THEN  893 

364  D1(3*N7-2)=2197 

365  D1(3*N7-1)=X1 

366  D1(3*N7)=Y1 

367  N7=N7+1 

368  GOTO  158 

369  IF  Q7067  THEN  893 

370  GOSUB  588 

371  GOTO  158 

372  IF  Q7073  THEN  375 

373  F0=1000 

374  GOTO  377 

375  IF  Q7078  THEN  893 

376  F0=2000 

377  IF  LOO-1  THEN  380 

378  X1=X1 

379  Y1=Y1+10 

380  IF  LOOl  THEN  383 

381  Xl=Xl+2 

382  Y1=Y1-10 

383  L0=0 

384  GOTO  158 

385  Y2=0 

386  IF  Q7076  THEN  390 

387  GOSUB  663 

388  X2=I6-I3 

389  GOTO  405 

390  IF  Q7067  THEN  394 

391  GOSUB  663 

392  X2=-.5*(I3+I4-I5-I6) 

393  GOTO  405 

394  IF  Q7082  THEN  398 

395  GOSUB  663 

396  X2=I5-I4 

397  GOTO  405 

398  IF  Q7088  THEN  893 

399  GOSUB  731 

400  GOSUB  741 


401  X2=H0-D1(3*C7-1) 

402  Y2=0 

403  K3=l 

404  K4=32 

405  L7=K3 

406  M7=K4 

407  GOSUB  693 

408  GOTO  158 

409  IF  Q7086  THEN  420 

410  GOSUB  731 

411  GOSUB  741 

412  X3=D1(3*C7-1) 

413  Y3=D1(3*C7) 

414  GOSUB  731 

415  GOSUB  741 

416  X4=D1(3*C7-1) 

417  Y4=D1(3*C7) 

418  GOSUB  762 

419  GOTO  158 

420  IF  Q7068  THEN  893 

421  GOSUB  676 

422  C7=Dl(3*K5-8) 

423  F7=IP(C7/1000) 

424  C7=C7-1000*F7 

425  IF  C70411  THEN  430 

426  I3=4*F7 

427  I4=-24*F7 

428  I7=2*F7 

429  GOTO  434 

430  IF  C70267  THEN  893 

431  I3=8*F7 

432  I4=-12*F7 

433  17=0 

434  X2=Dl(3*K5-7)+I3-I5+I7 

435  Y2=0 

436  L7=K5 

437  M7=32 

438  GOSUB  693 

439  Dl(3*K5-5)=20000-I5+I6+I7 

440  D1(3*K5-4)=X2+.5*(I5+I6-I7) 

441  Dl(3*K5-3)=Dl(3*K5-3) +14 

442  GOTO  158 

443  IF  Q7066  THEN  453 

444  IF  LOO-1  THEN  447 

445  X1=X1 

446  Yl=Yl+20 

447  IF  LOOO  THEN  450 

448  X1=X1 

449  Y1=Y1+10 

450  L0=1 
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451  F0=1000 

452  GOTO  158 

453  IF  Q7O80  THEN  463 

454  IF  LOOl  THEN  457 

455  X1=X1 

456  Yl=Yl-20 

457  IF  LOOO  THEN  460 

458  Xl=Xl+2 

459  Y1=Y1-10 

460  L0=-1 

461  F0=1000 

462  GOTO  158 

463  F0=500 

464  IF  Q7082  THEN  467 

465  G0=0 

466  GOTO  158 

467  IF  Q7071  THEN  470 

468  G0=26 

469  GOTO  158 

470  IF  Q7083  THEN  473 

471  G0=50 

472  GOTO  158 

473  IF  Q7088  THEN  893 

474  GOSUB  731 

475  GOSUB  741 

476  H0=D1(3*C7-1) 

477  GOTO  158 

478  F0=3000 

479  IF  Q7082  THEN  482 

480  G0=0 

481  GOTO  158 

482  IF  Q7071  THEN  485 

483  G0=26 

484  GOTO  158 

485  IF  Q7073  THEN  893 

486  G0=50 

487  GOTO  158 

488  GOTO  893 

489  IF  Q7O80  THEN  492 

490  V0=1 

491  GOTO  158 

492  IF  Q7083  THEN  495 

493  V0=2 

494  GOTO  158 

495  IF  Q7084  THEN  498 

496  V0=3 

497  GOTO  158 

498  IF  Q7081  THEN  893 

499  V0=4 

500  GOTO  158 
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501  IF  Q7076  THEN  893 

502  GOSUB  630 

503  GOTO  158 

504  IF  Q7089  THEN  507 

505  GOSUB  635 

506  GOTO  158 

507  IF  Q7086  THEN  510 

508  GOSUB  642 

509  GOTO  158 

510  IF  Q7079  THEN  513 

511  S0=0 

512  GOTO  158 

513  IF  Q7072  THEN  516 

514  S0=1 

515  GOTO  158 

516  IF  Q7078  THEN  893 

517  S0=2 

518  GOTO  158 

519  GOTO  893 

520  GOTO  893 

521  GOSUB  741 

522  I7=C7 

523  GOSUB  580 

524  GOTO  158 

525  GOSUB  731 

526  GOSUB  741 

527  M7=C7 

528  I7=Kl(N7)-32 

529  IF  I7<16  THEN  542 

530  17=17+184 

531  IF  I7<210  THEN  576 

532  17=17-194 

533  IF  I7<23  THEN  542 

534  17=17-22 

535  IF  I7<27  THEN  559 

536  17=17-4 

537  IF  I7<28  THEN  542 

538  17=17+72 

539  IF  I7<127  THEN  567 

540  17=17-99 

541  IF  I7>30  THEN  893 

542  IF  1700  THEN  550 

543  IF  F0>10000  THEN  893 

544  C7=10000+8*S0 

545  IF  FOolOOO  THEN  547 

546  C7=10000+6*SO 

547  IF  FOOO  THEN  577 

548  C7=10000+4*S0 

549  GOTO  577 

550  IF  VOol  THEN  552 


551  C7=F0+F1(I7) 

552  IF  V0O2  THEN  554 

553  C7=F0+F2(I7) 

554  IF  V0O3  THEN  556 

555  C7=F0+F3(I7) 

556  IF  V0O4  THEN  577 

557  C7=F0+F4(I7) 

558  GOTO  577 

559  IF  G0=26  THEN  562 

560  C7=F0+G0+I7 

561  GOTO  577 

562  IF  V0>2  THEN  565 

563  C7=F0+G1(I7) 

564  GOTO  577 

565  C7=F0+G3(I7) 

566  GOTO  577 

567  IF  G0=26  THEN  570 

568  C7=F0+G0+I7 

569  GOTO  577 

570  17=17-100 

571  IF  V0>2  THEN  574 

572  C7=F0+G2(I7) 

573  GOTO  577 

574  C7=F0+G4(I7) 

575  GOTO  577 

576  C7=F0+I7 

577  GOSUB  580 

578  IF  N7<=M7  THEN  528 

579  GOTO  158 

580  D1(3*N7-2)=C7 

581  E7=FNI7(C7) 

582  X1=X1-I1 

583  D1(3*N7-1)=X1 

584  D1(3*N7)=Y1 

585  X1=X1+I2+H1 

586  N7=N7+1 

587  RETURN 

588  GOSUB  731 

589  GOSUB  741 

590  X7=C7 

591  GOSUB  731 

592  GOSUB  741 

593  Y7=C7 

594  X0=S1*X7+S2*Y7 

595  Y0=S3*X7+S4*Y7 

596  RETURN 

597  GOSUB  731 

598  GOSUB  741 

599  S1=C7 

600  GOSUB  731 


601  GOSUB  741 

602  S2=C7 

603  GOSUB  731 

604  GOSUB  741 

605  S3=C7 

606  GOSUB  731 

607  GOSUB  741 

608  S4=C7 

609  RETURN 

610  GOSUB  731 

611  GOSUB  741 

612  H1=C7 

613  GOSUB  731 

614  GOSUB  741 

615  V1=C7 

616  RETURN 

617  GOSUB  731 

618  GOSUB  741 

619  M1=C7 

620  GOSUB  731 

621  GOSUB  741 

622  M2=C7 

623  GOSUB  731 

624  GOSUB  741 

625  M3=C7 

626  GOSUB  731 

627  GOSUB  741 

628  M4=C7 

629  RETURN 

630  GOSUB  731 

631  GOSUB  741 

632  W0=C7 

633  CALL  Send  (''PW"&STR$  (WO)  ) 

634  RETURN 

635  GOSUB  731 

636  GOSUB  741 

637  X1=C7 

638  GOSUB  731 

639  GOSUB  741 

640  Y1=C7 

641  RETURN 

642  GOSUB  731 

643  GOSUB  741 

644  X1=C7 

645  GOSUB  731 

646  GOSUB  741 

647  Y1=Y1+C7 

648  RETURN 

649  GOSUB  731 

650  GOSUB  741 
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651  X1=X1+C7 

652  GOSUB  731 

653  GOSUB  741 

654  Y1=C7 

655  RETURN 

656  GOSUB  731 

657  GOSUB  741 

658  X1=X1+C7 

659  GOSUB  731 

660  GOSUB  741 

661  Y1=Y1+C7 

662  RETURN 

663  GOSUB  676 

664  13=15 

665  14=16 

666  K3=K5 

667  K4=K6 

668  IF  K0(K7)<>36  THEN  674 

669  GOSUB  731 

670  GOSUB  741 

671  I5=C7 

672  16=15 

673  GOTO  675 

674  GOSUB  676 

675  RETURN 

676  GOSUB  731 

677  GOSUB  741 

678  K5=C7 

679  IF  K0(K7)=44  THEN  682 

680  K6=K5 

681  GOTO  685 

682  GOSUB  731 

683  GOSUB  741 

684  K6=C7 

685  C7=Dl(3*K5-2) 

686  E7=FNI7(C7) 

687  I5=I1+D1(3*K5-1) 

688  IF  K5=K6  THEN  691 

689  C7=Dl(3*K6-2) 

690  E7=FNI7(C7) 

691  I6=I2+D1(3*K6-1) 

692  RETURN 

693  FOR  N7=L7  TO  M7 

694  D1(3*N7-1)=D1(3*N7-1)+X2 

695  D1(3*N7)=D1(3*N7)+Y2 

696  NEXT  N7 

697  RETURN 

698  GOSUB  731 

699  GOSUB  741 

700  X2=X1 
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701  Y2=Y1 

702  IF  C7=0  THEN  720 

703  IF  C7>=10000  THEN  720 

704  I7=FNI7(C7) 

705  E7=l 

706  GOTO  710 

707  E7=0 

708  X3=X4 

709  Y3=Y4 

710  D7=FND7(C7) 

711  IF  X4=-64  THEN  717 

712  X4=X2+X4 

713  Y4=Y2+Y4 

714  IF  E7O0  THEN  707 

715  GOSUB  762 

716  GOTO  707 

717  IF  Y4=-64  THEN  720 

718  E7=l 

719  GOTO  710 

720  RETURN 

721  GOSUB  731 

722  GOSUB  741 

723  X3=X1 

724  X4=C7 

725  GOSUB  731 

726  GOSUB  741 

727  Y3=Y1 

728  Y4=C7 

729  GOSUB  762 

730  RETURN 

731  IF  K7>=32  THEN  735  ELSE  733 

732  IF  K0(K7)<>32  THEN  740 

733  K7=K7+1 

734  IF  K7<=32  THEN  732 

735  E7=FNT7(I0) 

736  IF  E7O0  THEN  893 

737  10=10+1 

738  K7=l 

739  GOTO  732 

740  RETURN 

741  C7=l 

742  R7=0 

743  S7=-l 

744  IF  K0(K7)=45  THEN  754 

745  S7=+l 

746  IF  K0(K7)=43  THEN  754 

747  IF  K0(K7)=32  THEN  754 

748  IF  K0(K7)<48  THEN  760 

749  IF  K0(K7)<>81  THEN  752 

750  C7=Q0*C7 


751  GOTO  754 

752  R7=10*R7+K0 (K7) -48 

753  C7=R7 

754  K7=K7+1 

755  IF  K7<=32  THEN  747 

756  E7=rNT7(I0) 

757  10=10+1 

758  K7=l 

759  GOTO  747 

760  C7=S7*C7 

761  RETURN 

762  X5=X0+S1*X3+S2*Y3 

763  Y5=Y0+S3*X3+S4*Y3 

764  X6=X0+S1*X4+S2*Y4 

765  Y6=Y0+S3*X4+S4*Y4 

766  X7=  4000+Y5 

767  Y7=10800-X5 

768  CALL  Send  (''PU''&STR$(X7) "&STR$(Y7)  ) 

769  X7=  4000+Y6 

770  Y7=10800-X6 

771  CALL  Send  (•'PD''&STR$  (X7) , '•&STR$  (Y7)  ) 

772  RETURN 

773  IF  JOOO  THEN  787 

774  FOR  K7=l  TO  32 

775  D2 (3*K7-2)=Dl(3*K7-2) 

776  D2 (3*K7-1)=D1(3*K7-1) 

777  D2(3*K7)=D1(3*K7) 

778  NEXT  K7 

779  M7=32 

780  V2=0 

781  GOSUB  867 

782  X1=M1 

783  Y1=Y1+V2 

784  V2=0 

785  IF  P7=46  THEN  151 

786  IF  P7=42  THEN  112 

787  N1=0 

788  C7=D1(3*N1+1) 

789  E7=FNI7(C7) 

790  H2=L3-Dl(3*Nl+2)-Il 

791  L7=N1+1 

792  FOR  K7=L7  TO  32 

793  C7=Dl(3*K7-2) 

794  IF  C7>=20000  THEN  807 

795  IF  C7<10000  THEN  807 

796  NEXT  K7 

797  IF  JloO  THEN  803 

798  IF  N3=0  THEN  801 

799  M7=N3 

800  GOSUB  867 
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801  Y1=Y1+V2 

802  V2=0 

803  X1=M1 

804  J0=J1 

805  IF  P7=46  THEN  151 

806  IF  P7=42  THEN  112 

807  E7=FNI7(C7) 

808  N1=K7-1 

809  L1=D1(3*K7-1)+I1+H2 

810  L7=K7 

811  FOR  K7=L7  TO  32 

812  C7=Dl{3*K7-2) 

813  IF  C7>=20000  THEN  816 

814  IF  C7<10000  THEN  816 

815  GOTO  819 

816  NEXT  K7 

817  Q2=0 

818  GOTO  820 

819  Q2=C7-10000 

820  N2=K7 

821  C7=Dl(3*K7-5) 

822  E7=FNI7(C7) 

823  L2=Dl(3*K7-4)+I2+H2 

824  IF  L2<M2  THEN  832 

825  L7=L2-M2 

826  IF  L7>M2-L1+Q1  THEN  828 

827  IF  L7<.5*L4  THEN  832 

828  Q2=Q1 

829  N2=N1 

830  L2=L1-Q1 

831  GOTO  851 

832  L7=N1+1 

833  M7=N2 

834  N7=N3 

835  FOR  K7=L7  TO  M7 

836  C7=Dl(3*K7-2) 

837  X7=D1(3*K7-1) 

838  Y7=D1(3*K7) 

839  N7=N7+1 

840  D2 (3*N7-2)=C7 

841  D2 (3*N7-1)=X7+H2 

842  D2(3*N7)=Y7 

843  NEXT  K7 

844  Q1=Q2 

845  N1=N2 

846  L1=L2+Q2 

847  N3=N7 

848  L3=L1 

849  L4=L4+Q2 

850  IF  L2<M2  THEN  791 


851  H3=0 

852  H4=M2-L2 

853  L3=0 

854  L4=L4-Q2 

855  M7=N3 

856  FOR  N7=l  TO  M7 

857  C7=D2(3*N7-2) 

858  IF  C7>=20000  THEN  862 

859  IF  C7<10000  THEN  862 

860  L3=L3+C7-10000 

861  H3=IP(L3/L4*H4) 

862  D2 (3*N7-1)=D2 (3*N7-1)+H3 

863  NEXT  N7 

864  GOSUB  867 

865  L4=0 

866  IF  Nl>=32  THEN  797  ELSE  788 

867  ¥7=16+. 5*V1 

868  IF  Y1+V2+Y7<=M4  THEN  871 

869  V2=M3-Y1+Y7 

870  GOTO  891 

871  FOR  N7=l  TO  M7 

872  C7=D2 (3*N7-2) 

873  X2=D2 (3*N7-1) 

874  Y2=D2(3*N7)+V2 

875  IF  C7<20000  THEN  883 

876  C7=C7-20000 

877  X3=X2-IP(C7/2) 

878  X4=X3+C7 

879  Y3=Y2 

880  Y4=Y2 

881  GOSUB  762 

882  GOTO  884 

883  GOSUB  702 

884  NEXT  N7 

885  N3=0 

886  L3=M1 

887  V2=V2+32+Vl 

888  RETURN 

889  E=1 

890  GOTO  896 

891  E=2 

892  GOTO  896 

893  E=3 

894  GOTO  896 

895  IGCLEAR 

896  PRINT  ••E=’';E 

897  GOTO  956 

898  DEF  FNI7(N0) 

899  IFNI7 

900  IF  N0<10000  THEN  906 
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901  A7=0 

902  NO=NO-1000*IP(NO/1000) 

903  Il=-IP(N0/2) 

904  I2=I1+N0 

905  GOTO  924 

906  L7=0 

907  I7=IP( (NO-1) /16)+1 

908  SET#1:  RECORD  32*17-31 

909  READ#1:  A$ 

910  I7=2*N0-32*I7+31 

911  A7=4*ORD(A$[I7:I7]) 

912  J7=I7+1 

913  B7=4*ORD(A$[J7: J7] ) 

914  I7=8*A7+IP(B7/32)+l 

915  J7=B7-32*IP(B7/32)+l 

916  IF  L7=I7  THEN  920 

917  L7=I7 

918  SET#2:  RECORD  32*L7-31 

919  READ#2:  B$ 

920  Il=ORD(B$[J7: J7] )-64 

921  J7=J7+1 

922  I2=ORD(B$[J7: J7]  )-64 

923  B7=B7+2 

924  I7=A7 

925  FNI7=A7 

926  END  DEF 

927  DEF  FND7(N0) 

928  1FND7 

929  I7=8*A7+IP(B7/32)+l 

930  J7=B7-32*IP(B7/32)+l 

931  IF  L7=I7  THEN  935 

932  L7=I7 

933  SET#2:  RECORD  32*L7-31 

934  READ#2;  B$ 

935  X4=ORD(B$[J7;J7])-64 

936  J7=J7+1 

937  Y4=ORD(B$[J7: J7])-64 

938  B7=B7+2 

939  J7=B7 

940  FND7=B7 

941  END  DEF 

942  DEF  FNT7(I0) 

943  SET#3:  RECORD  32*10-31 

944  READ#3:  C$ 

945  K7=ORD(C$[l:l]) 

946  K7=256*K7+ORD(C$[2:2]) 

947  IF  K7=12074  THEN  953 

948  FOR  K7=l  TO  32 

949  KO(K7)=ORD(C$[K7:K7]) 

950  NEXT  K7 
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951  K7=0 

952  GOTO  954 

953  K7=l 

954  FNT7=K7 

955  END  DEF 

956  K$=  CHR$(27) &"%OA"&CHR$(27) &''E" 

957  FOR  K7=l  TO  256 

958  K$=  K$&"  ’• 

959  NEXT  K7 

960  CALL  Send  (K$) 

961  CLOSE#l 

962  CLOSE#2 

963  CLOSE#3 

964  CLOSE#4 

965  END 
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RELATIVITY 


That  the  velocity  of  light  is  independent  of  the  motion  of  the  observer  was  indicated 
first  by  the  experiments  of  Michelson  and  Morley.  The  constancy  of  the  velocity  of  light 
is  only  one  manifestation  of  the  principle  of  relativity,  which  may  be  stated  in  the 
following  way. 

It  is  not  possible  by  any  physical  experiment  to  determine  an  absolute  motion  through 
space. 

An  implication  of  the  principle  of  relativity  is  that  all  scalars,  vectors,  and  tensors 
which  represent  physical  quantities  are  invariant  with  respect  to  the  velocity  of  the 
reference  frame  to  which  they  are  referred. 

Let  a  spherical  light  wave  emanate  from  an  origin  of  coordinates  at  zero  time  and 
expand  with  the  speed  of  light.  The  equation  of  the  light  wave  is 

+  +  =  o  (1) 

where  z,y»z,t  are  the  Cartesian  coordinates  and  the  time  of  a  point  in  the  light  wave 
and  c  is  the  speed  of  light.  Invariance  of  the  scalar  function  in  Equation  (l)  implies 
that  a  position  vector  r  with  coordinates 

(x.  y,  z,  ict)  (2) 

is  invariant  in  a  four- dimensional  space  whose  metric  is  given  by  the  equation 

dl^  -  dx^  +  dy^  +  dz^  -  c^dt^  (3) 

The  vector  r  may  be  differentiated  with  respect  to  the  metric  I  to  obtain  new  invariants 
which  satisfy  the  identity 

d  / dr  dr\  dr  d^r 

Associated  with  a  particle  is  a  rest  mass  which  is  a  physical  quantity  and  is 
invariant  by  the  principle  of  relativity.  Associated  with  the  particle  is  a  momentum 
vector  p  which  may  be  defined  by  the  equation 

dr 

P  =  —  (5) 

Application  of  the  Identity  (4)  to  the  momentum  vector  p  leads  to  Einstein’s  law  of  the 
equivalence  of  mass  and  energy.  The  prediction  of  the  equivalence  of  mass  and  energy 
is  one  theory  which  has  been  confirmed  in  the  most  spectacular  way  by  practical 
applications.  It  gives  the  source  of  energy  for  nuclear  bombs. 

A  vital  application  of  relativity  is  to  chemical  structure.  That  electrons  move  as 
though  they  have  spin  was  discovered  when  relativity  was  applied  to  the  motion  of 
electrons  by  Dirac.  The  two  electrons  in  a  chemical  bond  are  locked  together  by  opposite 
spins.  Inasmuch  as  we  are  held  together  by  chemical  bonds,  we  would  not  even  exist 
if  there  were  no  relativity. 
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